function v = sunique (u)

   ## usage:  v = sunique (u)
   ##
   ## unsorted unique

   if !iscell(u)
      error("sunique: need cell input.\n") ;
   endif 

   v = u(1) ;
   for j = 2:length(u)
      if any(strcmp(u{j}, v)), continue ; endif 
      v = [v u(j)] ;
   endfor 

endfunction